<% gdm=trim(request.QueryString("userid")) mapimg=trim(request("mapimg")) 'response.write gdm 'response.end if gdm="" then gdm=trim(request.form("gdxm")) end if n=Year(date()) y=Month(date()) if len(y)=1 then y="0" & y rq=n & y page=int(request("page")) %> <%=gdm%> 的个人炒股主页(含个人资产档案,持仓股票,当日操盘流水,历史操盘记录) <%Set rs = Server.CreateObject("ADODB.Recordset") 'sql="SELECT a.*,b.*,c.* FROM bbs.dbo.userinfo a inner join mncg.dbo.userinfo b on a.uid=b.uid inner join mncg.dbo.team c on b.sex=c.teamid WHERE b.uid='"&gdm&"'" sql="SELECT b.*,c.* FROM mncg.dbo.userinfo b inner join mncg.dbo.team c on b.sex=c.teamid WHERE b.uid='"&gdm&"'" rs.open sql,conn,1,1 if (rs.recordcount=0) then conn.close set rs=nothing set conn=nothing 'Response.Redirect "error.asp?errno=1&title=出错" 'response.write sql response.write "
叩富网模拟炒股提示您:该用户不存在!!

>>>请按此登录模拟炒股系统查找。" Response.end end if dim openfund dim zjc dim yll '赢利率 openfund=csng(rs("openfund")) 'zjc=csng(rs("all_balance"))-openfund yll=formatnumber(csng(rs("zongup")),2,true) '持仓比例 gpsz=cdbl(rs("stock_balance")) zjhz=cdbl(rs("all_balance")) teamid=rs("teamid") '持仓比例 ccbl=formatnumber(csng(rs("cangwei")),0,true) if ccbl=0 then ccbl="空仓" elseif ccbl=100 then ccbl="满仓" else ccbl=ccbl & "%" end if everydayyl=formatnumber(csng(rs("everydayyl")),0,true) zyl=formatnumber(csng(rs("lastweekup")),2,true) lastdayup=formatnumber(csng(rs("lastdayup")),2,true) lastmonthup=formatnumber(csng(rs("lastmonthup")),2,true) lastyearup=formatnumber(csng(rs("lastyearup")),2,true) startzsup=formatnumber(csng(rs("startzsup")),2,true) duan=rs("duan") dim ifopen ifopen=trim(rs("ifopen")) successup=csng(rs("successup")) xunzhang=cint(rs("xunzhang")) yingdp=rs("yingdp") %>
:: 模拟炒股><%=gdm%>的炒股个人主页  [欢迎使用叩富网模拟炒股] →登录模拟炒股系统 | /stock/UserBlog.asp?userid=<%=server.URLEncode(trim(gdm))%>', '<%=gdm%>的炒股个人主页')" class="top" >将该个人主页添加到收藏夹

bgcolor=#CCECFC onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#CCECFC'<%else%> bgcolor=#E7F6FD onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#E7F6FD'<%end if%> VAlign=top noWrap> <% jys=rs("stock_type") 'if (rs.recordcount<>0) then if trim(rs("zqlb"))="A" then flk=0.002 flk2=0.005 jingdu=2 elseif trim(rs("zqlb"))="B" then flk=0.002 flk2=0.005 jingdu=3 elseif trim(rs("zqlb"))="E" then flk=0.002 flk2=0.005 jingdu=3 elseif trim(rs("zqlb"))="F" then flk=0.002 flk2=0.005 jingdu=3 elseif trim(rs("zqlb"))="Z" then flk=0.0015 flk2=0.003 jingdu=3 else flk=0.002 flk2=0.005 jingdu=2 end if fzjcj=formatnumber(csng(rs("new_price")),jingdu,true) 'fzjcj=rs("new_price") fzrsp=rs("old_price") jys=rs("stock_type") 'else ' fzjcj=0 ' fzrsp=0 ' flk=0.003 ' jys="" 'end if if csng(fzjcj)=0 then if csng(fzrsp)=0 then ggyll=0 ryke=0 else ggyll=(csng(fzrsp)-csng(rs("ykcb")))/abs(csng(rs("ykcb"))) ryke=(csng(fzrsp)-csng(rs("ykcb")))*rs("amount") end if else ggyll=(csng(fzjcj)-csng(rs("ykcb")))/abs(csng(rs("ykcb"))) ryke=(csng(fzjcj)-csng(rs("ykcb")))*rs("amount") end if if csng(rs("old_price"))<>0 and csng(rs("new_price"))>0 then jrzd=formatnumber(((csng(rs("new_price"))-csng(rs("old_price")))/csng(rs("old_price")))*100,2,true) else jrzd=0 end if if csng(fzjcj)=0 then jrgpsz=cdbl(fzrsp)*cdbl(rs("amount")) else jrgpsz=cdbl(fzjcj)*cdbl(rs("amount")) end if if stocknum>20 then else allgpsz=allgpsz+jrgpsz end if %> <% zt=rs("ZT") if zt="1" then zt1="冻结"%> <%else if rs("tpbz")="T" then %> <%else if rs("frozen_amount")>0 then%> <% else %> <%end if end if end if %> <% i=i+1 rs.MoveNext loop %> <% if stocknum>20 then %> <% end if%>
<%=gdm%> 的炒股个人主页

<% rs.close %>
<%=rs("uid")%> 的个人资产档案---所属组 target=_blank><%=rs("teamname")%>
用户名: <%'=rs("unick")%><%=trim(rs("uid"))%> 入市资金: <%=formatnumber(rs("openfund"),2,true)%> 元
综合排名: <%=rs("new_phb")%> 仓 位: <%=ccbl%>
总成交量: <%=formatnumber(rs("all_cjl"),2,true)%> (周转率:<%=formatnumber(csng(rs("zhouzup")),0,true)%>%)     发站内邮件,请先登录模拟炒股!\n登录后,使用自己的模拟炒股帐号可与<%=rs("uid")%>在线交流!');window.open('login.asp','_blank');">→给<%=rs("uid")%>发站内邮件
昨日总资产:<%If yll>=0 then response.write "" else response.write "" End If %><%=formatnumber(rs("all_balance"),2,true)%>    盈利率: <% If yll>=0 then response.write "" else response.write "" End If %> <%=yll%>%
资金余额: <% if csng(rs("balance"))<0 then response.write "0.00" else response.write formatnumber(rs("balance"),2,true) end if %> 昨日股票市值:<%=formatnumber(rs("stock_balance"),2,true)%>
开户日期: <%=rs("regdate")%> 最近登录: <%=rs("lastlogindate")%>
<% if teamid="518" or teamid="519" then%> <% end if%>

月度勋章: <% dim i if xunzhang=0 then response.write "" elseif xunzhang>4 then dim jj,kk jj= xunzhang mod 5 kk= cint((xunzhang-jj)/5) for i=1 to kk response.write "太阳勋章=五颗星星勋章" next for i=1 to jj response.write "星星勋章" next else for i=1 to xunzhang response.write "星星勋章" next end if %>
评级: <% if duan=0 then response.write "初段" else response.write "" response.write duan & "段" response.write "" end if %>
赢大盘: <%=yingdp%>次
选股成功率:<% if successup>=80 then response.write "" & successup & "%" else response.write successup & "%" end if %>
日均赢利:<%if everydayyl<0 then %><%else%><%end if%><%=everydayyl%>
<% sql="select * from mncghis..userid where uid='"&gdm&"'" rs.open sql,conn,1,1 if (rs.recordcount=0) then yjbgimg="/"&rq&"/0.png" else ifmappath=trim(rs("mappath")) if mapimg="" then if ifmappath="" or isnull(ifmappath) then yjbgimg="/"&rq&"/0.png" else yjbgimg="/"&rq&"/"&rs("id")&".png" end if else yjbgimg="/"&mapimg&"/"&rs("id")&".png" end if end if rs.close %>
<% if ifmappath<>"" then mappath=split(trim(ifmappath),",") for i=0 to ubound(mappath) if trim(mappath(i))<>"" then response.write "" & left(trim(mappath(i)),4) & "年"& right(trim(mappath(i)),2) & "月" & "|" end if next end if %>
<%=gdm%>月度资产涨幅及日收益率走势图
border=0 alt=<%=gdm%>的月度资产涨幅走势图>
<% sql="select * from mncghis..lastzs where stock_code='399300'" rs.open sql,conn,1,1 zs_lastdayup= formatnumber(csng(rs("lastdayup")),2,true) zs_lastweekup=formatnumber(csng(rs("lastweekup")),2,true) zs_lastmonthup= formatnumber(csng(rs("lastmonthup")),2,true) zs_lastyearup=formatnumber(csng(rs("lastyearup")),2,true) rs.close %>
指数涨幅 用户资产涨幅 涨幅差
上日 <%if zs_lastdayup<0 then %><%else%><%end if%><%=zs_lastdayup%>% <%if lastdayup<0 then %><%else%><%end if%><%=lastdayup%>% <%if lastdayup-zs_lastdayup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastdayup-zs_lastdayup),2,true)%>%
本周 <%if zs_lastweekup<0 then %><%else%><%end if%><%=zs_lastweekup%>% <%if zyl<0 then %><%else%><%end if%><%=zyl%>% <%if zyl-zs_lastweekup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((zyl-zs_lastweekup),2,true)%>%
本月 <%if zs_lastmonthup<0 then %><%else%><%end if%><%=zs_lastmonthup%>% <%if lastmonthup<0 then %><%else%><%end if%><%=lastmonthup%>% <%if lastmonthup-zs_lastmonthup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastmonthup-zs_lastmonthup),2,true)%>%
今年 <%if zs_lastyearup<0 then %><%else%><%end if%><%=zs_lastyearup%>% <%if lastyearup<0 then %><%else%><%end if%><%=lastyearup%>% <%if lastyearup-zs_lastyearup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((lastyearup-zs_lastyearup),2,true)%>%
自注册日起 <%if startzsup<0 then %><%else%><%end if%><%=startzsup%>% <%if yll<0 then %><%else%><%end if%><%=yll%>% <%if yll-startzsup<0 then %>↓<%else%>↑<%end if%><%=formatnumber((yll-startzsup),2,true)%>%


target=_blank>→查看股票累积收益明细
<% sql="SELECT * FROM stock,price WHERE stock.userid='"&gdm&"' and stock.stock_code=price.stock_code and stock.stock_type=price.stock_type" rs.open sql,conn,1,1 totala=0 stocknum=rs.recordcount if rs.recordcount>20 then rs.PageSize = 20 totalA=int(rs.recordcount/rs.pagesize)+1 if recs<>0 then page=int((recs-1)/rs.pageSize)+1 if page<1 then page=1 if page>totala then page=totala rs.AbsolutePage = Page end if if (rs.recordcount=0) then response.write "
股票代码 股票名称 拥股数 可卖数 买入成本 盈亏成本 当前价 今日涨幅 股票市值 保本价 盈亏率 累积浮动盈亏 状态
" Response.write "  当前无持仓股票!" response.write "
" rs.close Else %> <%i=1 do while not rs.EOF and i<=20 %>
&ms=4" title="查看个股F10资料" target=_blank><%=rs("stock_code")%> &ms=1" title="查看个股行情" target=_blank><%=rs("stock_name")%> <%=formatnumber(rs("amount"),0,true)%> <%=formatnumber(rs("frozen_amount"),0,true)%><%=formatnumber(rs("cb"),jingdu,true)%> <%=formatnumber(rs("ykcb"),jingdu,true)%> <% if csng(fzjcj)=0 then response.write formatnumber(rs("old_price"),jingdu,true) '停牌则取昨收盘价 else response.write formatnumber(fzjcj,jingdu,true) End If %> <%if jrzd<0 then %><%else%><%end if%> <%=jrzd%>%<%if jrzd<0 then %><%else%><%end if%> <%if csng(fzjcj)=0 then%><%=formatnumber(csng(fzrsp)*csng(rs("amount")),2)%><%else%><%=formatnumber(csng(fzjcj)*csng(rs("amount")),2)%><%end if%> <%=formatnumber((csng(rs("ykcb"))/csng(1+flk))*csng(1+flk2),jingdu,true)%> <%if ggyll<0 then %><%else%><%end if%><%=formatnumber(ggyll*100,2,true)%>% <%if ggyll<0 then %><%else%><%end if%><%=formatnumber(ryke,2,true)%> <%=zt1%>停牌 正常己下单
<% if totala>1 then If Page <> 1 Then Response.Write "第一页 " Response.Write "上一页 " else Response.Write "第一页 " Response.Write "上一页 " End If If Page <> rs.PageCount and rs.pagecount <>1 Then Response.Write "下一页 " Response.Write "最后一页 " else Response.Write "下一页 " Response.Write "最后一页 " End If end if %>  共 <%=stocknum%> 支持仓股票[第<%=page%>页/共<%=totalA%>页]
<% rs.close End If%>
<% if ifopen="1" then %>
[<%=gdm%>]今日操作
合同号 股票代码股票名称 买卖委托价 数量 委托时间 成交价 成交时间 结果 委托理由
  该选手隐藏了他今日的操作流水记录!
<% grouptab=teamid+1 else grouptab=teamid %> <% sql="SELECT * FROM entrust WHERE userid='"&gdm&"' and (entrust_bs='r' or entrust_bs='c') order by date desc,time desc" rs.open sql,conn,1,1 dayentrustnum=rs.recordcount %>
[<%=gdm%>]今日操作 共<%=rs.recordcount%>
<% if (rs.recordcount=0) then %> <% else %> <% i=1 do while not rs.EOF and i<=12 jys=rs("stock_type") %> bgcolor=#CCECFC onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#CCECFC'<%else%> bgcolor=#E7F6FD onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#E7F6FD'<%end if%> VAlign=top noWrap> <% i=i+1 rs.MoveNext loop %> <% if dayentrustnum>12 then %> <% end if%>
合同号 股票代码股票名称 买卖委托价 数量 委托时间 成交价 成交时间 结果 委托理由
  今日无操作!
<%=rs("htxh")%>  &ms=4" title="查看个股F10资料" target=_blank><%=rs("stock_code")%>  &ms=1" title="查看个股行情" target=_blank><%=rs("stock_name")%>  <%if rs("entrust_bs")="r" then %>买入<%else%>卖出<%end if%>  <%=rs("price")%>  <%=rs("amount")%>  <%=rs("date")%>
<%=rs("time")%>
 
<%if rs("cj_price")<>"" then%><%=rs("cj_price")%><%else%>-.--<%end if%> <%=rs("cj_time")%> <% ts=rs("status") IF ts="已撤" THEN%> 己撤 <%end if%> <%IF ts="已成" THEN%> 成交 <%end if%> <%IF ts="已报" or ts="" THEN%> 已报 <%end if%> <%if trim(rs("why"))<>"" then%> " href="#" onclick="javascript:alert('<%="委托理由:"&HTMLEncode(ltrim(rtrim(rs("why"))))%>')"><%=InterceptString(HTMLEncode(ltrim(rtrim(rs("why")))),10)%><%if tlen(ltrim(rtrim(rs("why"))))>10 then%>...<%end if%> <%else%> <%end if%>
>下一页  &userid=<%=gdm%>>最后一页  共 <%=dayentrustnum%> 笔操作[第1页/共<%=(int(dayentrustnum/12)+1)%>页]
<% End if rs.close %> <% end if %> <% n=Year(date()) y=Month(date()) r=Day(date()) if len(y)=1 then y="0" & y if len(r)=1 then r="0" & r if ifopen="1" then r=r-7 notetxt="(该选手隐藏了近7天的交易明细)" end if rq=n & "-" & y & "-" & r page=int(request("page")) startdate=trim(request("startdate")) enddate=trim(request("enddate")) if startdate="" then startdate="2004-01-01" if enddate="" then enddate=rq 'Set rs = Server.CreateObject("ADODB.Recordset") tblName="hisentrust" strWhere="userid='"&gdm&"' and wtdate>='"&startdate&"' and wtdate<='"&enddate&"' " intPageSize="10" ordern="cj_time" Set Cmd = Server.CreateObject("ADODB.Command") With Cmd .ActiveConnection = conn .CommandText = "CutPage" .CommandType = 4 '表名 Set Param1 = .CreateParameter("tblName",200,1,50,tblName) .Parameters.Append Param1 '需要返回的列 Set Param1 = .CreateParameter("strGetFields",200,1,50,"*") .Parameters.Append Param1 '排序的字段名 Set Param1 = .CreateParameter("fldName",200,1,255,ordern) .Parameters.Append Param1 'where条件 Set Param1 = .CreateParameter("strWhere",200,1,500,strWhere) .Parameters.Append Param1 '页尺寸 Set Param1 = .CreateParameter("PageSize",4,1,4,intPageSize) .Parameters.Append Param1 '页码 Set Param1 = .CreateParameter("PageIndex",4,1,4,page) .Parameters.Append Param1 '返回记录总数 0 全部 Set Param1 = .CreateParameter("doCount",4,1,1,1) .Parameters.Append Param1 '@OrderType Set Param1 = .CreateParameter("OrderType",4,1,1,1) .Parameters.Append Param1 End With Set rs = Cmd.Execute() totalA=int(rs("total")/intPageSize+0.999999) total=int(rs("total")) rs.close Set Cmd.ActiveConnection= Nothing Set Param1 = Nothing Set Cmd = Nothing if page<1 then page=1 if page>totala then page=totala if page=0 then page=1 Set Cmd = Server.CreateObject("ADODB.Command") With Cmd .ActiveConnection = conn .CommandText = "CutPage" .CommandType = 4 '表名 Set Param1 = .CreateParameter("tblName",200,1,50,tblName) .Parameters.Append Param1 '需要返回的列 Set Param1 = .CreateParameter("strGetFields",200,1,50,"*") .Parameters.Append Param1 '排序的字段名 Set Param1 = .CreateParameter("fldName",200,1,255,ordern) .Parameters.Append Param1 'where条件 Set Param1 = .CreateParameter("strWhere",200,1,500,strWhere) .Parameters.Append Param1 '页尺寸 Set Param1 = .CreateParameter("PageSize",4,1,4,intPageSize) .Parameters.Append Param1 '页码 Set Param1 = .CreateParameter("PageIndex",4,1,4,page) .Parameters.Append Param1 '返回记录总数 0 全部 Set Param1 = .CreateParameter("doCount",4,1,1,0) .Parameters.Append Param1 '@OrderType Set Param1 = .CreateParameter("OrderType",4,1,1,1) .Parameters.Append Param1 End With Set rs = Cmd.Execute() %>

    →提示:两个月之前的历史成交记录请登录系统后查询
[<%=gdm%>]近两个月内历史成交<%=notetxt%> 共<%=total%><%if totala>1 then%>[第<%=page%>页/共<%=totala%>页]<%end if%>
<% if (total=0) then %> <% Else %> <% i=1 do while not rs.EOF if left(rs("stock_code"),2)<="20" then url="http://www.sdgtja.com/szzl/"&trim(rs("stock_code"))&".txt" else url="http://www.sdgtja.com/shzl/"&trim(rs("stock_code"))&".txt" end if jys=rs("stock_type") %> bgcolor=#CCECFC onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#CCECFC'<%else%> bgcolor=#E7F6FD onMouseOver="this.style.background='#ffcccc'" onMouseOut= this.style.background='#E7F6FD'<%end if%> VAlign=top noWrap> <% i=i+1 rs.MoveNext loop %>
合同号 股票代码股票名称 买卖委托价 数量 委托时间 成交价 成交时间 结果 委托理由
  该用户近两个月内无历史成交

两个月之前的历史成交记录请登录模拟炒股系统后查询!
<%=rs("htxh")%>  &ms=4" title="查看个股F10资料" target=_blank><%=rs("stock_code")%>  &ms=1" title="查看个股行情" target=_blank><%=rs("stock_name")%>  <%if rs("entrust_bs")="r" then %>买入<%elseif rs("entrust_bs")="c" then%>卖出 <%else%> 除权 <%end if%>  <%=rs("price")%>  <%=rs("amount")%>  <%=rs("wtdate")%>
<%=rs("wttime")%>
 
<%if rs("cj_price")<>"" then%><%=rs("cj_price")%><%else%>-.--<%end if%>  <%=rs("cj_time")%>  <% ts=rs("status") IF ts="已撤" THEN%> 己撤 <%end if%> <%IF ts="已成" THEN%> 成交 <%end if%> <%IF ts="已报" or ts="" THEN%> 已报 <%end if%> <%IF ts="送股" THEN%> 送股 <%end if%> <%IF ts="行权" THEN%> 行权 <%end if%> <%IF ts="派息" THEN%> 派息 <%end if%> <%if trim(rs("why"))<>"" then%> " href="#" onclick="javascript:alert('<%="委托理由:"&HTMLEncode(ltrim(rtrim(rs("why"))))%>')"><%=InterceptString(HTMLEncode(ltrim(rtrim(rs("why")))),10)%><%if tlen(ltrim(rtrim(rs("why"))))>10 then%>...<%end if%> <%else%> <%end if%>
<% End if %>
> 查询:起始日 结束日   <%if totala>1 then If Page <> 1 Then Response.Write "第一页" Response.Write "上一页" else Response.Write "首页" Response.Write "上一页" End If If Page <> totala and totala <>1 Then Response.Write "下一页" Response.Write "最后一页" else Response.Write "下一页" Response.Write "最后一页" End If end if rs.close %>
<% set rs=nothing conn.close set conn=nothing Set Cmd.ActiveConnection= Nothing Set Param1 = Nothing Set Cmd = Nothing %>

本主页地址:/stock/UserBlog.asp?userid=<%=server.URLEncode(trim(gdm))%>">
·<%=gdm%>祝愿大家股市不断进步·



CopyRight © 叩富网, www.cofool.com, 2005-2006, All Rights Reserved